    With p
        .nombre = "Juan Antonio"
        .direccion = "C/Pez, 23"
        .poblacion = "Bada del Valls"
        .prov = pr
        With pr
            .codigo = 8
            .nombre = "Barcelona"
        End With
        .dni = "12345678"
        .edad = 35
    End With
